home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / rpc161a1.arc / RPC-SUB2.BAS < prev    next >
BASIC Source File  |  1988-04-13  |  3KB  |  72 lines
  1. ******************************************************************************
  2. ************************   RBBS-PC Protocol Controller   *** RPC-SUB2.BAS ****
  3. ************************      Merge for RBBS-PC.BAS      *********************
  4. ************************         By John Morris          ******* 16-1A *******
  5. ******************************************************************************
  6. * REPLACING old line(s) by new
  7. 210 IF PRIVATE.DOOR THEN _
  8. * ------[ first line different ]------
  9.        CALL PROTOCOL : _                                             ' RPC16-1A
  10.        CALL TRANSFER : _
  11.        GOTO 235
  12.     CALL OPENCOM(MODEM.INIT.BAUD$,",N,8,1")
  13. * REPLACING old line(s) by new
  14. * ------[ first line different ]------
  15. 335 CALL PROTOCOL                                                    ' RPC16-1A
  16.     DONT.WRITE = 0
  17.     END SUB
  18. ' $SUBTITLE: 'BADCHAR - subroutine to check user names for bad characters'
  19. ' $PAGE
  20. '
  21. '  SUBROUTINE NAME    -- BADCHAR
  22. '
  23. '  INPUT PARAMETERS   --     PARAMETER                    MEANING
  24. '                           PASSED.NAME$           USER NAME
  25. '
  26. '  OUTPUT PARAMETERS  --    PASSED.NAME$           USER NAME WILL CONTAIN ""
  27. '                                                  IF BAD CHARACTERS FOUND
  28. '
  29. '  SUBROUTINE PURPOSE -- TO CHECK USER NAMES FOR INVALID CHARACTERS
  30. '
  31.     SUB BADCHAR (PASSED.NAME$) STATIC
  32. '
  33.     J = 1
  34.     XX = LEN(PASSED.NAME$)
  35. * REPLACING old line(s) by new
  36. 21604 CR = 0
  37.       A$ = A$ + _
  38.            "Protocol:"
  39.       SUBROUTINE.PARAMETER = 1
  40.       CALL TPUT
  41. * ------[ first line different ]------
  42.       A$ = TRANSFER.OPTIONS$ + "N) None"                             ' RPC16-1A
  43.       SUBROUTINE.PARAMETER = 1
  44.       CALL TGET
  45.       IF SUBROUTINE.PARAMETER = -1 THEN _
  46.          EXIT SUB
  47.       IF Q = 0 THEN _
  48.          GOTO 21604
  49.       Z$ = B$(1)
  50. '
  51. ' *****************************************************************************
  52. ' *  DEFAULT SELECT OF TRANSFER PROTOCOL                                      *
  53. ' *****************************************************************************
  54. '
  55. * REPLACING old line(s) by new
  56. 21610 CALL ALLCAPS (Z$)
  57.       IF INSTR("H?",Z$) > 0 THEN _
  58.          GOTO 21602
  59. * ------[ first line different ]------
  60.       FF = INSTR(DFLTXFER$ + "N",Z$)
  61.       IF FF < 1 THEN _
  62.          GOTO 21600
  63.       IF FF = 4 THEN _
  64.          BLOCK.SIZE = 8 : _
  65.          GOTO 21612
  66. * REPLACING old line(s) by new
  67. 21612 FT$ = MID$(DFLTXFER$,FF,1)
  68.       CHECKSUM = (FF = 2)
  69. * ------[ first line different ]------
  70.       FLEN = 128 - 896 * (FF = 4)
  71.       GOTO 21621
  72.